: SYNONYM
  CREATE  BL WORD FIND DUP
  IF SWAP , IMMEDIATE 1+
	 IF DOES> @ EXECUTE
	 ELSE DOES> STATE @
	      IF @ , ELSE @ EXECUTE THEN
	 THEN
  ELSE
     TRUE ABORT" Word not found"
  THEN ;
.( SYNONYM loaded.)
.( Usage: SYNONYM NewWord OldWord)
